home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 6 / developer source - volume 6.iso / parad / jul95 / ripp1f4.gif < prev    next >
Graphics Interchange Format  |  1996-11-19  |  8.3 KB  |  646x379  |  4-bit (5 colors)
   ocr: D DATES.SSL-Schpt-Tun method run(var eventinfo Event) var counter smallint tc TCursor startDate Date enduar startDate == Date("1/1/95") ; Start on Jan 1, 1995 CC.open("dates.dD") tc.edit() for counter from 0 to 364 - Create one year's worth t.insertafterRecord0) - è of data. tc."date" = startDate + counter CC.postkecord0) endFor tc.close() endmethod Edit Line: 13 Col:: 1